home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source2.lha / source / amiga / RamDrive.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.3 KB  |  58 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: RamDrive.mod $
  4.   Description: Interface to ramdrive.device
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.7 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 02:39:55 $
  10.  
  11.   $VER: ramdrive_protos.h 36.3 (7.11.90)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. ***************************************************************************)
  22.  
  23. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  24. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  25. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  26.  
  27. MODULE [2] RamDrive;
  28.  
  29. IMPORT e := Exec;
  30.  
  31.  
  32. (*-- RamDrive Base variable --------------------------------------------*)
  33.  
  34. CONST
  35.  
  36.   ramDriveName * = "ramdrive.device";
  37.  
  38. VAR
  39.  
  40.   base * : e.DevicePtr;
  41.  
  42. (*-- Device Functions ---------------------------------------------------*)
  43.  
  44.  
  45. (*--- functions in V34 or higher (Release 1.3) ---*)
  46.  
  47. PROCEDURE KillRAD0* [base,-42] ()
  48.   : e.LSTRPTR;
  49.  
  50. (*--- functions in V36 or higher (Release 2.0) ---*)
  51.  
  52. PROCEDURE KillRAD* [base,-48]
  53.   ( unit [0] : LONGINT )
  54.   : e.LSTRPTR;
  55.  
  56. BEGIN base := NIL
  57. END RamDrive.
  58.